home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Tools.Dxr / Internal_30_balloon rollover frame.ls < prev    next >
Encoding:
Text File  |  1998-05-04  |  725 b   |  27 lines
  1. on exitFrame
  2.   global balloonSprite, grollerList
  3.   set rollTest to 0
  4.   set vThisFrame to the frameLabel
  5.   set vFrameCheck to getaProp(grollerList, vThisFrame)
  6.   if voidp(vFrameCheck) then
  7.     alert("Rollovers not specified for frame.")
  8.     pause()
  9.     exit
  10.   end if
  11.   set rollList to getProp(getProp(grollerList, vThisFrame), #sprites)
  12.   repeat with X in rollList
  13.     if the mouseCast = the memberNum of sprite X then
  14.       set rollTest to 1
  15.       set hotSprite to X
  16.       set thisName to the name of member the member of sprite hotSprite
  17.       exit repeat
  18.     end if
  19.   end repeat
  20.   if rollTest then
  21.     showBalloon(thisName)
  22.   else
  23.     set the loc of sprite balloonSprite to point(-4444, -4444)
  24.   end if
  25.   go(the frame)
  26. end
  27.